﻿Public Class CChiTietPhieuTraDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property

    Private m_iMaSach As Integer
    Public Property MaSach() As Integer
        Get
            Return m_iMaSach
        End Get
        Set(ByVal value As Integer)
            m_iMaSach = value
        End Set
    End Property

    Private m_dateNgayMuon As DateTime
    Public Property NgayMuon() As DateTime
        Get
            Return m_dateNgayMuon
        End Get
        Set(ByVal value As DateTime)
            m_dateNgayMuon = value
        End Set
    End Property


    Private m_iSoNgayMuon As Integer
    Public Property SoNgayMuon() As Integer
        Get
            Return m_iSoNgayMuon
        End Get
        Set(ByVal value As Integer)
            m_iSoNgayMuon = value
        End Set
    End Property


    Private m_iTienPhat As Integer
    Public Property TienPhat() As Integer
        Get
            Return m_iTienPhat
        End Get
        Set(ByVal value As Integer)
            m_iTienPhat = value
        End Set
    End Property


    Private m_iMaPhieuTra As Integer
    Public Property MaPhieuTra() As Integer
        Get
            Return m_iMaPhieuTra
        End Get
        Set(ByVal value As Integer)
            m_iMaPhieuTra = value
        End Set
    End Property


    Private m_iMaPhieuMuon As Integer
    Public Property MaPhieuMuon() As Integer
        Get
            Return m_iMaPhieuMuon
        End Get
        Set(ByVal value As Integer)
            m_iMaPhieuMuon = value
        End Set
    End Property

    Private m_iMaChiTietPhieuMuon As Integer
    Public Property MaChiTietPhieuMuon() As Integer
        Get
            Return m_iMaChiTietPhieuMuon
        End Get
        Set(ByVal value As Integer)
            m_iMaChiTietPhieuMuon = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal reader As IDataReader)
        m_iMa = reader("Ma")
        m_dateNgayMuon = reader("NgayMuon")
        m_iMaPhieuMuon = reader("MaPhieuMuon")
        m_iMaPhieuTra = reader("MaPhieuTra")
        m_iMaSach = reader("MaSach")
        m_iSoNgayMuon = reader("SoNgayMuon")
        m_iTienPhat = reader("TienPhat")
    End Sub



End Class
